#!/usr/bin/perl


@a = glob("*.png");

foreach $x (<@a>)
{
	chomp($x);

	@b = split(/\./, $x);

	system("convert $x ".$b[0].".pgm");

}
